EXHIBIT E 
Refresh Menu Option 

Private Sub mnuDSMenuOptions_Click( Index As Integer) 
Dim SQL As String 
Dim Msg As String 
Dim i As Long 

Dim RefreshForm As Boolean 
Dim CurrentID As Long 

Select Case tvwData . Selectedltem. Text 
Case "Datasources" 
Select Case Index 
Case 0 'New 

SetMessage "Loading datasource properties..." 
LockWindow True 

f rmDatasource. DatasourcelD = -1 
f rmDatasource . LoadForm 
SetMessage gData . DatabasePath 
f rmDatasource. Show vbModal 
Me. Refresh 

If Not f rmDatasource. Cancelled Then 

tvwData_NodeClick tvwData . Selectedltem 

Ref reshDatabaseConnections 
End If 

Unload f rmDatasource 
Case 2 'Delete 

Msg = "Are you sure you want to delete the selected datasource (s ) ?" 
If MsgBox(Msg, vbYesNo + vbQuestion, "Delete Datasource ( s )" ) = vbYes Then 
RefreshForm = False 

For i = 1 To IstData.Listltems. Count 

If IstData.Listltems (i ). Selected = True Then 

SQL = "Delete From FW_DAT ASOU RCE Where DATASOURCE_ID=" & IstData . Listltems ( i ) . Tag 
If Not RefreshForm Then 

RefreshForm = DLookup ( " DATA_ENTRY" , "FW_DAT ASOU RCE", "DATASOURCE_ID=" & 
IstData.Listltems (i ) .Tag) 
End If 

Call ExecuteSQL (SQL) 
End If 
Next i 

If RefreshForm Then 

LoadForm 
Else 

tvwData_NodeClick tvwData . Selectedltem 
End If 
End If 
Case 4 'Properties 

SetMessage "Loading datasource properties..." 
LockWindow True 

CurrentID = IstData . Selectedltem. Tag 
f rmDatasource. DatasourcelD = CurrentID 
f rmDatasource . LoadForm 
SetMessage gData . DatabasePath 
f rmDatasource. Show vbModal 
Me. Ref resh 

If Not f rmDatasource. Cancelled Then 

tvwData_NodeClick tvwData . Selectedltem 

If Not IstData. Selectedltem Is Nothing Then 

IstData . Selectedltem. Selected = False t H 

End If 

Set IstData. Selectedltem = IstData . FindItem(CurrentID, lvwTag) e , '* ■'• 

Ref reshDatabaseConnections • ^ 

End If 

Unload f rmDatasource 
Case 6 'Refresh 

If gData. ValidDataEntryConnection - False Then 

NoConnectionMessage 

Exit Sub 
End If 

Me. Enabled = False 

Ref reshDatasource Me, IstData . Selectedltem. Tag 
Me ."Enabled = True 
LoadForm 
End Select 
End Select 
End Sub 



EXHIBIT E 
RefreshDatasource 



Public Sub RefreshDatasource (f As Form, DatasourcelD As Long) 
Dim db As JRO. JetEngine 
Dim dDef As ADOX. Catalog 
Dim tDef As ADOX. Table 
Dim DualTable As String 
Dim AuditTable As String 
Dim rs As ADODB. Recordset 
Dim rsTables As ADODB. Recordset 
Dim SQL As String 
Dim EntitylD As Long 
Dim EntityColumnID As Long 
Dim i As String 
Dim cPerm As CPermission 
Dim TableViewPref ix As String 
Dim con As ADODB. Connection 
Dim InitialLoad As Boolean 
Dim DisplayOnViewMenu As Boolean 

If gData.ValidDataEntryConnection = False Then 

NoConnectionMessage 

Exit Sub 
End If 

TableViewPref ix = DLookup ( " DATASOURCE_ATTRIBUTE_VALUE" , " DATASOURCE_ATTRI BUTE_V" , 
"DATASOURCE_ATTRIBUTE= 1 INITIAL_CATALOG f AND DATASOURCE_ID=" & DatasourcelD) & "" 
f.SetMessage "Loading database tables..." 
LockWindow True 
DisplayOnViewMenu = False 

InitialLoad = IsNull (DLookup ( "ENTITY_ID", "FW_ENTITY" ) ) 

frmReferenceTables . InitialLoad = InitialLoad 

frmReferenceTables. DatasourcelD = DatasourcelD 

f.SetMessage gData . DatabasePath 

frmReferenceTables. Show vbModal 

If frmReferenceTables. Cancelled Then 

Unload frmReferenceTables 

Exit Sub 
Else 

If InitialLoad Then 

DisplayOnViewMenu = f rmReferenceTables . DisplayOnViewMenu 
End If 

Unload frmReferenceTables 
End If 

f.SetMessage "Refreshing datasource . . . " 

f .Refresh 

DoEvents 

LockWindow True 

Set dDef = New ADOX. Catalog 

Set dDef . ActiveConnection = GetDatasourceConnection ( DatasourcelD) 
If dDef .ActiveConnection Is Nothing Then 

Set dDef = Nothing 

LockWindow False 

f.SetMessage gData . DatabasePath 

Exit Sub 
End If 

VerifySequenceTable dDef, DatasourcelD, TableViewPref ix 

DualTable » DLookup ( "DUAL_T ABLE" , " FW_DATASOURCE" , "DATASOURCE_ID=" & DatasourcelD) 
VerifyDualTable dDef, DualTable, DatasourcelD 
InsertDummyRecord DatasourcelD, DualTable 

AuditTable = DLookup ( "AUDI T_T ABLE" , " FW_DATASOURCE" , "DATASOURCE_ID=" & DatasourcelD) 
VerifyAuditTable dDef, AuditTable, DatasourcelD, TableViewPref ix 

Set con = dDef .ActiveConnection 

Select Case DLookup ( "Platform", "qryDatasources" , "DATASOURCE_ID=" & DatasourcelD) 
Case "ACCESS. OLEDB" 

Set rsTables = con .OpenSchema ( adSchemaTables , Array(Empty, Empty, Empty, Empty)} 
Case "ORACLE. OLEDB" 

Set rsTables = con. OpenSchema (adSchemaTables, Array(Empty, TableViewPref ix, Empty, Empty)) 
Case "SQLSERVER. OLEDB" 

Set rsTables = con. OpenSchema (adSchemaTables, Array (TableViewPref ix, Empty, Empty, Empty)) 
End Select 



Do While Not rsTables. EOF 
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If { rsTables ( "TABLE_TYPE" ) .Value = "TABLE" ) And { rsTables { "TABLE_NAME" ) .Value <> "SEQUENCE" ) 

And ( rsTables ( "TABLEJ4AME" ) .Value <> DualTable) And ( rsTables ( "TABLE_NAME" ) .Value <> AuditTable) Then 
Set tDef = dDef. Tables ( rsTables ( "TABLE_NAME" ) .Value) 
SQL = "Select * From FW_ENTITY Where TABLE_NAME= 1 " & tDef. Name & " 
Set rs = GetEditRS(SQL) 
If rs.BOF And rs.EOF Then 
rs . AddNew 

rs("TABLE_NAME") .Value = tDef. Name 
rs("DATASOURCE_ID") .Value = DatasourcelD 

rs("ENTITY_CAPTION") .Value = StrConv ( Replace ( tDef .Name, "_", " ", 1, -1, vbTextCompare ) , vbProperCase) 
rs ( "UNIQUE_FIELD__NAME" ) .Value = Get PrimaryKey ( tDef ) 
rs("SHOW_UNIQUE_FIELD") .Value = False 

rs("RECORD_SOURCE" ) .Value = GetRecordsource (dDef , tDef. Name) 
rs( "VISIBLE") .Value = True 

rs ("REFERENCE") .Value - IsRef erenceTables ( tDef . Name ) 
If rs ( "REFERENCE" ) .Value Then 

rs("DISPLAY_ON_MENU") .Value = False 

rs( "ICON") .Value = Null 
Else 

rs("DISPLAY_ON_MENU") .Value = DisplayOnViewMenu 
If DisplayOnViewMenu Then 

rs ("ICON") .Value = GetlNISetting ( App. Path & "\SystemConsole.ini", "System Settings", "Default Entity 
Icon", "ERROR") 
Else 

rs ("ICON") .Value = Null 
End If 
End If 

rs ( "RELATIVE_ORDER" ) .Value = Null 
rs .Update 

EntitylD = rs ( "ENTITY_ID" ) .Value 
Set cPerm = New CPermission 
cPerm. PrimaryKeylD = -1 
cPerm.CurrentID = EntitylD 
cPerm. DatasourcelD = DatasourcelD 
If rs( "REFERENCE") .Value = True Then 

cPerm.MenuContext = "REFERENCE" 
Else 

cPerm.MenuContext = "ENTITY" 
End If 

cPerm. CreatePermissions 
Set cPerm = Nothing 
Else 

If rs ( "REFERENCE" ) .Value Then 'Currently reference table 
If Not IsReferenceTables (tDef .Name) Then 

rs ("ICON") .Value = GetlNISetting (App. Path & "\SystemConsole.ini", "System Settings", "Default Entity 
Icon", "ERROR") 

r s ( " DI S PLAY_ON_MENU " ) . Va 1 ue = Fa 1 s e 
rs( "REFERENCE"). Value = False 
rs .Update 

SQL = "Delete From FW_MENU_ITEM_PERMISSION Where ENTITY_GROUP_ID In (Select ENTITY_GROUP_ID " 
SQL = SQL & "From FW_ENTITYJ3ROUP Where ENTITY_ID=" & rs ( "ENTITY_ID" ) .Value & ")" 
Call ExecuteSQL ( SQL ) . 

SQL = "Delete From FW_COMMAN D_OPT 1 0N_ PERMISSION Where ENT I T Y_GROU P_I D In (Select ENTITY_GROUP_ID " 
SQL = SQL & "From FW_ENTITY_GROUP Where ENTITY_ID=" & rs ( "ENTITY_ID" ) .Value & ")" 
Call ExecuteSQL (SQL) 

SQL = "Delete From FW__ENT IT Y_GROU P Where ENTITY_ID=" & rs ( "ENTITY_ID" ). Value 
Call ExecuteSQL (SQL) 

Set cPerm = New CPermission 
cPerm. PrimaryKeylD = -1 
cPerm.CurrentID = rs ( "ENTITY_ID" ) .Value 
cPerm. DatasourcelD = DatasourcelD 
cPerm.MenuContext = "ENTITY" 
cPerm. CreatePermissions 
Set cPerm = Nothing 

ModifyRelationships rs ( "ENTITY_ID" ) .Value, False 
End If 

Else 'Not currently a reference table. 
If IsReferenceTables (tDef .Name) Then 
rs ("ICON") .Value = Null 
rs("DISPLAY_ON_MENU") .Value = False 
rs ( "RELATIVE_ORDER" ) .Value = Null 
rs ("REFERENCE" ) .Value = True 
rs .Update 
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SQL « "Delete From FW_MENU_ITEM_PERMISSION Where ENTITY_GROU P_I D In (Select ENTITY_GROUP_ID " 
SQL = SQL & "From FW_ENT I T Y_GROU P Where ENTITY_ID=" & rs { "ENTITY_ID" ) .Value & ")" 
Call ExecuteSQL ( SQL ) 

SQL = "Delete From FW_COMMAND_OPTION_PERMISSION Where ENTITY_GROUP_ID In (Select ENTITY_GROUP_ID " 
SQL = SQL & "From FW_ENTITY_GROUP Where ENTITY__ID= M & rs ( "ENTITY_ID" ). Value & ")" 
Call ExecuteSQL (SQL) 

SQL = "Delete From FW_ENTITY_GROUP Where ENTITY_ID=" & rs ( "ENTITY_ID" ) .Value 
Call ExecuteSQL (SQL) 

Set cPerm = New CPermission 
cPerm. PrimaryKeylD = -1 

cPerm.CurrentID = rs { "ENTITY_ID" ) .Value 
cPerm. DatasourcelD = DatasourcelD 
cPerm.MenuContext = "REFERENCE" 
cPerm.CreatePermissions 
Set cPerm = Nothing 

ModifyRelationships rs ( "ENTITY_ID" ) .Value, True 
End If 
End If 
End If 

rs. Close: Set rs = Nothing 
End If 

rsTables .MoveNext 
Loop 

rsTables. Close: Set rsTables = Nothing 

OrderEntities 

CreateRelationships 

RefreshEntities 

LoadSequences 

Ref reshContexts 

Set dDef = Nothing 

On Error Resume Next 

Set db « New JRO. JetEngine 

db . Compact Database GetConnectionString ( ) , GetTempConnectionString ( ) 

Set db = Nothing 

If Err. Number = 0 Then 

FileCopy gData . DatabasePath & gData . DatabasePath 

Kill gData. DatabasePath & "-" 
End If 
Err. Clear 
LockWindow False 
f.SetMessage gData . DatabasePath 



End Sub 
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VerifvSeauenceTable 

Private Sub Verif ySequenceTable (dDef As ADOX. Catalog, DatasourcelD As Long, TableViewPref ix As String) 
Dim tDef As ADOX. Table 
Dim SQL As String 

On Error Resume Next 
Set tDef = dDef .Tables ("SEQUENCE" ) 
If Err. Number <> 0 Then 
Err .Clear 

Select Case DLookup( "Platform", "qryDatasources", "DATASOURCE_ID=" & DatasourcelD) 
Case "ACCESS. OLEDB" 

Set tDef = New ADOX. Table 
tDef. Name - "SEQUENCE" 

tDef .Columns. Append "TABLE_NAME" , adWChar, 50 
tDef .Columns .Append "NEXT_VAL", adlnteger 
dDef .Tables. Append tDef 
Case "SQLSERVER. OLEDB" 

Set tDef = New ADOX. Table 
tDef. Name = "SEQUENCE" 

tDef .Columns. Append "TABLE_NAME" , adVarChar, 50 
tDef .Columns. Append "NEXT_VAL M , adlnteger 
dDef .Tables .Append tDef 
Case "ORACLE. OLEDB" 

SQL = "CREATE TABLE " & TableViewPref ix & ".SEQUENCE" & vbCrLf 
SQL = SQL & " ( " & vbCrLf 

SQL = SQL & "TABLE_NAME VARCHAR2(50) NOT NULL," & vbCrLf 
SQL = SQL & "NEXT_VAL NUMBER (6,0) NOT NULL" & vbCrLf 
SQL = SQL & ")" & vbCrLf 
SQL = SQL & " TABLE SPACE SYSTEM" 
Call ExecuteDatasourceSQL( DatasourcelD, SQL) 
End Select 
Err .Clear 
End If 
End Sub 
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Verif yDualTable 

Private Sub Verif yDualTable (dDef As ADOX. Catalog, TableName As String, DatasourcelD As Long) 
Dim tDef As ADOX. Table 

On Error Resume Next 
Set tDef = dDef .Tables (TableName) 
If Err. Number <> 0 Then 
Err . Clear 

Select Case DLookup ( "Platform" , "qryDatasources", " DATASOURCE_I D= " & DatasourcelD) 
Case "ACCESS. OLEDB" 

Set tDef = New ADOX. Table 
tDef. Name = TableName 

tDef .Columns. Append "DUMMY_FIELD" , adWChar, 50 
dDef .Tables. Append tDef 
Case "SQLSERVER. OLEDB" 

Set tDef = New ADOX. Table 
tDef. Name = TableName 

tDef .Columns .Append "DUMMY_FIELD" , adVarChar, 50 
dDef .Tables .Append tDef 
Case "ORACLE. OLEDB" 
End Select 
Err. Clear 
End If 
End Sub 
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InsertDummyRecord 

Private Sub InsertDummyRecord ( DatasourcelD As Long, TableName As String) 
Dim rs As ADODB . Recordset 
Dim com As ADODB. Command 

Set com = New ADODB. Command 

Set com. ActiveConnection = GetDatasourceConnection ( DatasourcelD) 
If com. ActiveConnection Is Nothing Then 

Set com = Nothing 

Exit Sub 
End If 

On Error Resume Next 

com. Comma ndType = adCmdText 

com. Comma ndT ex t = "Select * From " & TableName 
com.CommandTimeout = 300 

Set rs = New ADODB. Recordset 
rs .CursorType = adOpenStatic 
rs .CursorLocation = adUseClient 
rs.LockType = adLockOptimistic 
rs.Open com 

If Err. Number = 0 Then 

If rs.BOF And rs.EOF Then 
rs . AddNew 

rs(0). Value = "Dummy" 
rs. Update 
End If 
End If 
Err .Clear 
Set com = Nothing 
rs. Close: Set rs = Nothing 
End Sub 
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Verif yAuditTable 

Private Sub Verif yAuditTable (dDef As ADOX. Catalog, TableName As String, DatasourcelD As Long, TableViewPref ix As 
String) 

Dim tDef As ADOX. Table 

Dim SQL As String 

On Error Resume Next 
Set tDef = dDef .Tables (TableName) 
If Err. Number <> 0 Then 
Err. Clear 

Select Case DLookup ( "Platform" , "qryDatasources", "DATASOURCE_ID=" & DatasourcelD) 
Case "ACCESS. OLEDB" 

Set tDef - New ADOX. Table 
tDef. Name = TableName 

tDef .Columns. Append " TABLE_NAME " , adWChar, 50 
tDef .Columns. Append ,f USER_NAME" , adWChar, 20 
tDef .Columns. Append "ACTION_TYPE" , adWChar, 1 
tDef .Columns. Append " AUDIT JTTME STAMP", adDate 
tDef .Columns. Append "RECORD_ID" , adlnteger 
dDef .Tables .Append tDef 
Case "ORACLE. OLEDB" 

SQL = "CREATE TABLE " & TableViewPref ix & "." & TableName & vbCrLf 
SQL = SQL & "(" & vbCrLf 

SQL = SQL & "TABLE_NAME VARCHAR2(50) NOT NULL," & vbCrLf 
SQL - SQL & "USER_NAME VARCHAR2(20) NOT NULL," & vbCrLf 
SQL = SQL & " ACT I ON_TY PE VARCHAR2 ( 1 ) . NOT NULL," & vbCrLf 
SQL = SQL & "AUDIT_TIME STAMP DATE NOT NULL," & vbCrLf 
SQL = SQL & "RECORD_ID NUMBER (6,0) NOT NULL" & vbCrLf 
SQL = SQL & ")" & vbCrLf 
SQL = SQL & "TABLESPACE SYSTEM" 
Call ExecuteDatasourceSQL( DatasourcelD, SQL) 
Case "SQLSERVER. OLEDB" 

Set tDef = New ADOX. Table 
tDef. Name = TableName 

tDef . Columns. Append "TABLE_NAME", adVarChar, 50 
tDef .Columns. Append "USER_NAME", adVarChar, 20 
tDef .Columns. Append "ACTION_TYPE", adVarChar, 1 
tDef .Columns. Append "AUDIT_TIMESTAMP", adDBTimeStamp 
tDef .Columns. Append "RECORD_ID", adlnteger 
dDef .Tables .Append tDef 
End Select 



Err. Clear 
End If 
End Sub 
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GetPrimaryKey 

Private Function GetPrimaryKey ( tDef As ADOX. Table) As String 
Dim iDef As ADOX. Index 

GetPrimaryKey = tDef . Columns ( 0 ). Name 
For Each iDef In tDef. Indexes 
If iDef . PrimaryKey Then 

GetPrimaryKey = iDef .Columns ( 0 ) .Name 
Exit For 
End If 
Next iDef 
End Function 
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GetRecordsource 

Private Function GetRecordsource (dDef As ADOX. Catalog, TableName As String) As String 
Dim tDef As ADOX. Table 
Dim ViewTagType As String 
Dim ViewTag As String 
Dim ViewName As String 

GetRecordsource = TableName 

ViewTagType = UCase$ (GetlNISetting ( App. Path & "\SystemConsole.ini", "System Settings", "View Tag Type", 
"ERROR") ) 

ViewTag = GetlNISetting (App. Path & "\SystemConsole.ini", "System Settings", "View Tag", "ERROR") 

Select Case ViewTagType 
Case "PREFIX" 

ViewName = ViewTag & TableName 
Case "SUFFIX" 

ViewName = TableName & ViewTag 
End Select 

On Error Resume Next 

Set tDef « dDef .Tables (ViewName) 

If Err. Number = 0 Then 

GetRecordsource = ViewName 
End If 
Err . Clear 
End Function 
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IsRef erenceTables 

Private Function IsRef erenceTables (TableName As String) As Boolean 
Dim ArraySize As Long 
Dim i As Long 
On Error Resume Next 

ArraySize = UBound (gData. Ref erenceTables ) 
If Err. Number <> 0 Then 
Err. Clear 

IsReferenceTables = False 
Exit Function 
End If 

For i = 0 To ArraySize 

If gData. Ref erenceTables (i) = TableName Then 
IsReferenceTables = True 
Exit Function 
End If 
Next i 
End Function 
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CreatePermissions 



Public Sub CreatePermissions ( ) 
Dim rsEdit As ADODB. Recordset 
Dim rs As ADODB. Recordset 
Dim GroupID As Variant 
Dim SQL As String 

On Error Resume Next 

GroupID = DLookup("GROUP_ID", "FW_GROUP" f "GROUP_DE SCRIPT I ON= 'Administrators • " ) 
If IsNull (GroupID) Then Exit Sub 

If PrimaryKeylD = -1 Then 

Set rs = GetEditRS( "Select * From " & m_CurrentTable & " Where " & m_PrimaryKey & "=-1") 
rs .AddNew 

rs (m_ForeignKey) .Value = CurrentID 
rs("GROUP_ID") .Value = GroupID 
rs("MENU_CONTEXT_ID") .Value = m_MenuContextID 
rs. Update 

PrimaryKeylD = rs (m_PrimaryKey) .Value 
End If 

SQL = "Select * From MENU_GROUPING_V Where DE FAU LT_ PE RMI SSI ON=T RUE AND MENU_CONTEXT= 1 " & m_MenuContext & " 1 " 
Set rs = GetRS ( SQL) 

SQL = "Select * From " & m_PermissionTable & " Where " & m_PrimaryKey & "=" & PrimaryKeylD 
Set rsEdit = GetEditRS (SQL) 
Do While Not rs.EOF 
rsEdit. AddNew 

rsEdit (m_PrimaryKey) .Value = PrimaryKeylD 

rsEdit ("MENU_ITEM_GROUPING_ID") .Value = rs ( "MENU_ITEM_GROUPING_ID" ) .Value 
rsEdit. Update 
rs.MoveNext 
Loop 

rs. Close: Set rs = Nothing 

rsEdit. Close: Set rsEdit = Nothing 



Err .Clear 
End Sub 
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Modif yRelationships 

Private Sub Modif yRelationships ( EntitylD As Long, IsRef erenceTable As Boolean) 
Dim rs As ADODB . Recordset 
Dim v As Boolean 
Dim cPerm As CPermission 
Dim DatasourcelD As Long 
Dim SQL As String 

DatasourcelD = DLookup ( "DATASOURCE_ID" , "FW_ENTITY", "ENTITY_ID=" & EntitylD) 

Set rs = GetEditRS( "Select * From FW_ENT I T Y_RELAT I ON Where ENTITY_ID=" & EntitylD) 

Do While Not rs.EOF 

v= DLookup ("REFERENCE", " FW_ENTITY" , " ENTITY_ID= ,, & rs ( "RELATED_ENTITY_ID" ) .Value ) 
If IsReferenceTable Or v Then 

rs ( "RELATIVE_ORDER" ) .Value = Null 

rs ("REQUIRED") .Value = False 

rs("DISPLAY_ON_TAB") .Value = False 

rs( "VISIBLE") .Value = False' 
Else 

rs( "VISIBLE") .Value = True 
End If 
rs .Update 

SQL = "Delete From FW_RELATION_PERMISSION Where RE LAT I ON_GROU P_I D In (Select RELAT ION_GROU P_I D " 
SQL = SQL & "From FW_RELATION_GROUP Where RELATION_ID=" & rs ( "RELATION_ID" ) .Value & ")" 
Call ExecuteSQL ( SQL ) 

SQL = "Delete From FW_RELATION_COMMAND_PERMISSION Where R E LAT I ON_G ROU P_I D In (Select RELAT I ON_GROU P_I D " 
SQL = SQL & "From FW_RE LAT I ON_G ROU P Where RELATION_ID=" & rs ( "RELATION_ID" ) .Value & ")" 
Call ExecuteSQL (SQL) 

SQL = "Delete From FW_RE LAT I ON_GROU P Where RELATION_ID=" & rs ( "RELATION_ID" ) .Value 
Call ExecuteSQL (SQL) 

Set cPerm = New CPermission 

cPerm. PrimaryKeylD = -1 

cPerm. DatasourcelD = DatasourcelD 

cPerm.CurrentID = rs ( "RELATION_ID" ) .Value 

cPerm.MenuContext = rs ( "RELATION_TYPE" ) .Value 

cPerm. Create Permissions 

Set cPerm = Nothing 

rs.MoveNext 
Loop 

rs. Close: Set rs = Nothing 

Set rs = GetEditRS ("Select * From FW_E N T I T Y_RE LAT I ON Where RELATE D_ENT I TY_ID=" & EntitylD) 
Do While Not rs.EOF 

v = DLookup ("REFERENCE", "FW_ENTITY", "ENTITY_ID=" & rs ( "ENTITY_ID" ) .Value) 
If IsReferenceTable Or v Then 

rs ("RELATIVE_ORDER") .Value = Null 
rs ("REQUIRED") .Value = False 
rs("DISPLAY_ON_TAB") .Value = False 
rs ("VISIBLE") .Value = False 
Else 

rs ("VISIBLE") .Value = True 
End If 
rs .Update 

SQL = "Delete From FW_RELATION_PERMISSION Where RELATI ON_GROU P_I D In (Select RELAT I ON_GROU P_I D " 
SQL = SQL & "From FW_RELATI ON_GROU P Where RE LAT I ON_I D= " & rs ( "RELAT IONJCD" ) .Value & ")" 
Call ExecuteSQL (SQL) 

SQL = "Delete From FW_RE L AT I ON_COMMAN D_ PERMISSION Where RELATION_GROUP_ID In (Select RELAT I ON_GR0U P_I D " 
SQL = SQL & "From FW_RE LAT I ON_GROU P Where RE LAT I ON_I D= " & rs ( "RELAT I ON_ID" ) .Value & ")" 
Call ExecuteSQL (SQL) 

SQL = "Delete From FW_RELATION_GROUP Where RELATION_ID=" & rs ( "RELAT I ON_ID" ) .Value 
Call ExecuteSQL (SQL) 
Set cPerm - New CPermission 
cPerm. PrimaryKeylD = -1 
cPerm. DatasourcelD = DatasourcelD 
cPerm.CurrentID = rs ( "RELAT I ONJED" ) .Value 
cPerm.MenuContext = rs ( "RELATION_TYPE" ) .Value 
cPerm.CreatePermissions 
Set cPerm = Nothing 
rs .MoveNext 
Loop 

rs. Close: Set rs = Nothing 

End Sub 
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OrderEntities 



Private Sub OrderEntities ( ) 
Dim rs As ADODB. Recordset 
Dim SQL As String 
Dim RelativeOrder As Long 
Dim Defaultlcon As String 

SQL = "Select RELATIVE_ORDER From FW_ENTITY Where Not REFERENCE And Not RELATIVE_ORDER Is Null " 

SQL = SQL & "Order By RELATIVE_ORDER Desc" 

RelativeOrder = 1 

Set rs o GetRS { SQL) 

If Not rs.BOF And rs.EOF Then 

RelativeOrder = rs ( "RELATIVE_ORDER" ) .Value + 1 
End If 

rs. Close: Set rs = Nothing 

Defaultlcon = GetlNISetting (App. Path & "\SystemConsole.ini", "System Settings", "Default Entity Icon", 
"ERROR") 

SQL = "Select * From FW_ENTITY Where DI S PLAY_ON_MENU And Not REFERENCE And RELAT I VE_ORDE R Is Null " 
SQL = SQL & "Order By ENTITY_CAPTION Asc" 
Set rs = GetEditRS(SQL) 
Do While Not rs.EOF 

rs ( "RELATIVE_ORDER" ) .Value = RelativeOrder 

If IsNull ( rs ( "ICON" ) .Value ) Then 
rs ("ICON") .Value = Defaultlcon 

End If 

rs. Update 

RelativeOrder = RelativeOrder + 1 
rs.MoveNext 
Loop 

rs. Close: Set rs = Nothing 
End Sub 



EXHIBIT E 

CreateRelationships 



Public Sub CreateRelationships ( ) 
Dim rs As ADODB. Recordset 

Set rs = GetRS( "Select ENTITY_ID From FW_ENTITY M ) 
Do While Not rs.EOF 

RefreshRelationships rs ( "ENTITY_ID" ) .Value 

rs.MoveNext 
Loop 

rs. Close: Set rs = Nothing 
End Sub 
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Ref reshRelationships 



Public Sub RefreshRelationships (EntitylD As Long) 
Dim DatasourcelD As Long 
Dim TableName As String 
Dim RelatedEntitylD As Long 
Dim SQL As String 
Dim rs As ADODB. Recordset 
Dim con As ADODB. Connection 
Dim TableViewPref ix As String 

DatasourcelD = DLookup ( " DATASOURCE_I D" , "FW_ENTITY n , "ENTITY_ID=" & EntitylD) 
TableName = DLookup ( "TABLE_NAME", "FW_ENTITY", "ENTITY_ID=" & EntitylD) 

Set con e GetDatasourceConnection (DatasourcelD) 
If con Is Nothing Then 

Exit Sub 
End If 

TableViewPrefix = DLookup ( " DATASOURCE_ATTRIBUTE_VALUE" , "DATASOURCE__ATTRIBUTE_V" , 
"DATASOURCE_ATTRIBUTE= , INITIAL_CATALOG I AND DATASOURCE_I D=" & DatasourcelD) & "" 

Select Case DLookup ( "Platform", "qryDatasources" , "DATASOURCE_ID=" & DatasourcelD) 
Case " ACCESS. OLEDB" 

Set rs = con.OpenSchema (adSchemaForeignKeys, Array(Empty, Empty, Empty, Empty, Empty, TableName)) 
Case "ORACLE. OLEDB" 

Set rs = con.OpenSchema (adSchemaForeignKeys, Array(Empty, TableViewPref ix, Empty, Empty, Empty, 
TableName) ) 

Case "SQLSERVER. OLEDB" 

Set rs = con.OpenSchema (adSchemaForeignKeys, Array (TableViewPref ix, Empty, Empty, Empty, Empty, 
TableName) ) 
End Select 

Do While Not rs.EOF 

RelatedEntitylD = DLookup ( "ENTITY_ID" , "FW_ENTITY", "TABLE_NAME= 1 " & rs (" PK_TABLE_NAME" ) .Value & "'"} 

SQL = "Delete From FW_ENT I T Y_RELAT I ON Where ENTITY_ID=" & EntitylD & " And " 
SQL = SQL & "RELATED_ENTITY_ID=" & RelatedEntitylD & " And ENTITY_FIELD_NAME= 1 " 

SQL = SQL & rs("FK_COLUMN_NAME") .Value & "» And RELATED_FIELD_NAME= 1 " & rs (" PK_COLUMN_NAME" ) .Value & 
Call ExecuteSQL ( SQL ) 

SQL = "Delete From FW_ENT I T Y_RELAT I ON Where ENTITY_ID=" & RelatedEntitylD & " And " 
SQL = SQL & "RE LAT E D_E N T I T Y_I D= " & EntitylD & " And ENTITY_FIELD_NAME= ' " 

SQL = SQL & rs("PK_COLUMN_NAME") .Value & " ' And RELATE D_FI ELD_NAME= 1 " & rs (" FK_COLUMN_NAME" ) .Value & 
Call ExecuteSQL (SQL) 

If rs ( " FK_TABLE_NAME " ) .Value <> rs (" PK_TABLE_NAME" ). Value Then 

AddRelationship rs ( "FK_TABLE_NAME" ) .Value, rs ( "PK_TABLE_NAME" ) .Value, rs ( "FK_COLUMN_NAME" ) .Value, 
rs ( " PK_COLUMN_NAME " ) . Va 1 ue 
End If 
rs .MoveNext 
Loop 

rs. Close: Set rs = Nothing 
End Sub 
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AddRelationship 

Private Sub AddRelationship (TableName As String, RelatedTableName As String, ColumnName As String, 
RelatedColumnName As String) 

Dim rs As ADODB . Recordset 

Dim SQL As String 

Dim EntitylD As Long 

Dim RelatedEntitylD As Long 

Dim Ref erenceTable As Boolean 

Dim RelatedReferenceTable As Boolean 

Dim cPerm As CPermission 

Dim RelationID As Long 

Dim DatasourcelD As Long 

EntitylD = DLookup ( "ENTITY_ID" , "FW_ENTITY" , "TABLE_NAME= 1 " & TableName & "*") 
ReferenceTable = DLookup ( "REFERENCE" , "FW_ENTITY" , "ENTITY_ID=" & EntitylD) 
DatasourcelD = DLookup ( "DATASOURCE_ID" , "FW_ENTITY", "ENTITY_ID=" & EntitylD) 
RelatedEntitylD = DLookup { "ENTITY_ID" , "FW_ENTITY", "TABLE_NAME= 1 " & RelatedTableName & " f ") 
RelatedReferenceTable = DLookup ( "REFERENCE" , "FW_ENTITY", "ENTITY_ID=" & RelatedEntitylD) 

SQL = "Select * From FW_ENTITY_RELATION Where RELATION_TYPE= »MANYJTO_ONE 1 And ENTITY_ID=" & EntitylD & " And 
RELATED_ENTITY_ID=" & RelatedEntitylD 
Set rs = GetEditRS(SQL) 
If rs.BOF And rs . EOF Then 
rs .AddNew 

rs{"ENTITY_ID") .Value = EntitylD 

rs ( "ENTITY_FIELD__NAME" ) .Value = ColumnName 

rs ( "RELATED_ENTITY_ID" ) .Value = RelatedEntitylD 

rs("RELATED_FIELD_NAME") .Value = RelatedColumnName 

rs { "RELATION_TYPE" ) .Value = " MAN Y_TO_ONE " 

rs ( "RELATIVE_ORDER" ) .Value = Null 

rs( "REQUIRED") .Value = False 

rs("DISPLAY_ON__TAB") .Value = False 

rs ("VISIBLE") .Value = Not (ReferenceTable Or RelatedReferenceTable) 
rs .Update 

RelationID = rs ( "RELATION_ID" ) .Value 
End If 

rs. Close: Set rs = Nothing 

Set cPerm = New CPermission 

cPerm. PrimaryKeylD = -1 

cPerm. DatasourcelD = DatasourcelD 

cPerm.CurrentID = RelationID 

cPerm.MenuContext = "MANY_TO_ONE" 

cPerm. Create Permissions 

Set cPerm = Nothing 

SQL = "Select * From FW_ENT IT Y_RELAT I ON Where RELATION_TYPE= 1 ONE_TO_MANY 1 And ENTITY_ID=" & RelatedEntitylD & 
" And RELAT E D_ENT I T Y_I D= " & EntitylD 
Set rs = GetEditRS(SQL) 
If rs.BOF And rs.EOF Then 
rs .AddNew 

rs("ENTITY_ID") .Value = RelatedEntitylD 

rs ( "ENTITY_FIELD_NAME" ) .Value = RelatedColumnName 

rs ( "RELATED_ENTITY_ID" ) .Value « EntitylD 

rs("RELATED_FIELD_NAME") .Value = ColumnName 

rs ( "RELATION_TYPE" ) .Value = " ONE_T 0_MAN Y " 

rs ( "RELATIVE_ORDER" ) .Value - Null 

rs{ "REQUIRED") .Value = False 

rs("DISPLAY_ON_TAB") .Value = False 

rs( "VISIBLE") .Value = Not (ReferenceTable Or RelatedReferenceTable) 
rs. Update 

RelationID = rs ( "RELAT I ON_ID" ). Value 
End If 

rs. Close: Set rs = Nothing 

Set cPerm = New CPermission 
cPerm. PrimaryKeylD = -1 
cPerm. DatasourcelD - DatasourcelD 
cPerm.CurrentID = RelationID 
cPerm.MenuContext = "0NE_TO_MANY" 
cPerm. CreatePermissions 
Set cPerm = Nothing 
End Sub 
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Ref reshEntities 

Private Sub Ref reshEntities ( ) 
Dim rs As ADODB . Recordset 

Set rs = GetRS( "Select ENTITY_ID From FW_ENTITY") 
Do While Not rs.EOF 

RefreshEntity rs ( "ENTITY_ID" ) .Value 

OrderRelationships rs ( "ENTITY_ID" ) .Value 

rs .MoveNext 
Loop 

rs. Close: Set rs - Nothing 
End Sub 
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RefreshEntity 

Public Sub Ref reshEntity ( EntitylD As Long) 
Dim i As Long 
Dim fDef As ADOX. Column 
Dim rs As ADODB. Recordset 
Dim SQL As String 
Dim EntityColumnID As Long 
Dim dDef As ADOX. Catalog 
Dim tDef As ADOX. Table 
Dim PrimaryKey As String 
Dim CallCreateComboBox As Boolean 
Dim Criteria As String 
Dim TableName As String 
Dim Ref erenceTable As Boolean 

Set dDef - New ADOX. Catalog 

Set dDef . ActiveConnection = GetDatasourceConnection ( DLookup { "DATASOURCE_ID" , "FW_ENTITY", "ENTITY_ID=" & 
EntitylD) ) 

If dDef .ActiveConnection Is Nothing Then 

Set dDef = Nothing 

Exit Sub 
End If 

TableName - DLookup ( "TABLE_NAME" , "FWJSNTITY" , "ENTITY_ID=" & EntitylD) 
ReferenceTable = DLookup ( "REFERENCE" , "FW_ENTITY", "ENTITY_ID=" & EntitylD) 

Set tDef = dDef .Tables (TableName) 

PrimaryKey = Get PrimaryKey ( tDef ) 

For i = 0 To tDef . Columns . Count 
Set fDef = tDef .Columns {i ) 
SQL = "Select * From FW_ENTITY 
SQL = SQL & " f And ENTITY_ID=" 

CallCreateComboBox = False 
Set rs = GetEditRS(SQL) 
If rs.BOF And rs.EOF Then 

CallCreateComboBox = True 

rs .AddNew 

rs ( "ENTITY_ID" ) .Value = EntitylD 

rs("FIELD_NAME") .Value = fDef. Name 

rs("CONTROL_CAPTION") .Value = StrConv (Replace ( fDef .Name, "_", " 1, -1, vbTextCompare) , vbProperCase) 
If Right$(rs ("C0NTROL_CAPTION") .Value, 3) = " Id" Then 

rs ("CONTROL_CAPT ION") .Value « Left$ (rs ( "CONTROL_CAPTION" ) .Value, Len < rs < "CONTROL_CAPTION" ) .Value ) - 3) 

" ID" 

End If 

Select Case fDef. Type 
Case adBoolean 

rs("CONTROL_TYPE_ID") .Value = DLookup ( "CONTROL_TYPE_ID" , "FW_CONTROL_TYPE" , "CONTROL_TYPE= • CheckBox » 
rs ( "DEFAULT_VALUE" ) .Value = Null 
Case adCurrency 

rs("CONTROL_TYPE_ID") .Value = DLookup ( "C0NTROL_TYPE_ID" , " FW_CONTROL_TYPE" , 
"CONTROL_TYPE= f Numeric Forma tBox 1 " ) 

rs ("COLUMN_FORMAT") .Value - "Currency" 

rs("DEFAULT_VALUE") .Value = 0 
Case adBiglnt, adTinylnt, adSmalllnt, adlnteger, adUnsignedTinylnt, adUnsignedSmalllnt, adUnsignedlnt 

rs("CONTROL_TYPE_ID") .Value = DLookup ( "CONTROL_TYPE_ID" , " FW_CONTROL_TYPE" , 
"CONTROL_TYPE= 1 NumericFormatBox ' " ) 

r s ( " COLUMN_ FORMAT " ) . Va 1 u e = " 0 " 

rs ( "DEFAULT_VALUE" ) .Value = Null 
Case Else 

Select Case DLookup ( "GENERIC_CONSTANT" , " FW__DATATY PE " , " ADO_DATA_TY PE= " & fDef. Type) 
Case "GenericDate" 

rs("CONTROL_TYPE_ID") .Value = DLookup ( "CONTROL_TYPE_ID" , " FW_CONTROL_TY PE " , 
"CONTROL_TYPE= ■ DateTimeControl 1 " ) 
Case "GenericMemo" 

rs("CONTROL_TYPE_ID") .Value = DLookup ( "C0NTROL_TYPE_ID" , " FW_CONTROL_TYPE" , 
"CONTROL_TYPE= • NotesControl ' " ) 

Case "GenericNumber" 

rs("CONTROL_TYPE_ID M ) .Value = DLookup ( "CONTROL_TYPE_ID" , " FW_CONTROL_TYPE" , 
"CONTROL_TYPE= l NumericFormatBox' " ) 
Case Else 

rs(" CONTROL JTYPE_ID") .Value = DLookup ( "CONTROL_TYPE_ID" , " FW_CONTROL_TYPE" , 
"CONTROL^YPE^'TextBoxControl ' " ) 
End Select 

rs ( "DEFAULT_VALUE" ) .Value = Null 
End Select 



- 1 

_COLUMN Where FIELD_NAME= 1 " & fDef. Name 
& EntitylD 
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If PrimaryKey = fDef.Name Then 

rs("TAB_INDEX") .Value = 1 

rs ( "REQUIRED" ) .Value = True 
Else 

rs("TAB_INDEX") .Value « Null 

Criteria = " RELATE D_ENTITY_ID=" & EntitylD & " And RELATED_FIELD_NAME= ' " & fDef.Name & 
If Ref erenceTable Then 

rs( "REQUIRED") .Value = True 
Else 

rs( "REQUIRED") .Value = Not IsNull ( DLookup ( "RELATION_ID" , " FW_ENTITY_RELATION" , Criteria)) 
End If 
End If 

rs ("VISIBLE") .Value = True 
rs . Update 

EntityColumnID = rs ( "ENTITY_COLUMN_ID" ) .Value 

Select Case fDef.Type 
Case adBoolean 
Case adCurrency 

SQL = "Insert Into FW_COLUMN_AT T R I BU T E_VALU E 
( ENTITY_COLUMN_I D, COLUMN_ATTRI BUTE_I D, COLUMN_ATTRIBUTE_VALUE ) Values ( 11 

SQL = SQL & EntityColumnID & "," & DLookup ( "COLUMN_ATTRIBUTE_ID" , " FW_COLUMN_ATTRIBUTE " , 
"COLUMN_ATTRIBUTE= 1 DECIMALS »")&",' 2 ' ) " 
Call ExecuteSQL (SQL) 

Case adBiglnt, adTinylnt, adSmalllnt, adlnteger, adUnsignedTinylnt, adUnsignedSmalllnt, adUnsignedlnt 
SQL = "Insert Into FW_COLUMN_ATT RI BUT E_VALU E 
(ENTITY_COLUMN_ID, COLUMN_ATTRIBUTE_ID, COLUMN_ATTRIBUTE_VALUE ) Values ( " 

SQL = SQL & EntityColumnID & "," & DLookup ( "COLUMN_ATTRIBUTE_ID" , " FW_COLUMN_ATTRI BUTE " , 
"COLUMN_ATTRIBUTE= 1 DECIMALS 1 " ) & ", l 0 1 )" 
Call ExecuteSQL (SQL) 
Case Else 

Select Case DLookup ( "GENERIC_CONSTANT" , "FW_DATATYPE" , " ADO_DATA_TY PE= " & fDef.Type) 
Case "GenericDate" 

SQL = "Insert Into FW_COLUMN_ATTRIBUTE_VALUE 
(ENTITY_COLUMN_ID, COLUMN_ATTRIBUTE__ID, COLUMN_ATTRIBUTE_VALUE ) Values ( M 

SQL = SQL & EntityColumnID & "," & DLookup ( "COLUMN_ATTRIBUTE_ID" , " FW_COLUMN_ATTRIBUTE" , 
"COLUMN_ATTRIBUTE= • DAT E T I ME_CON T ROL_T Y PE » " ) & " , ■ DAT E_CONT ROL 1 ) " 
Call ExecuteSQL (SQL) 

SQL = "Insert Into FW_COLUMN_ATTRIBUTE_VALUE 
(ENTITY_COLUMN_ID, COLUMN_ATTRIBUTE_ID, COLUMN_ATTRIBUTE_VALUE ) Values ( " 

SQL = SQL & EntityColumnID & " r " & DLookup ( "COLUMN_ATTRIBUTE_ID" f " FW_COLUMN_ATTRIBUTE" , 
"COLUMN_ATTRIBUTE= 'MIN_DATE 1 " ) & ", 1 01/01/1601 ') " 

Call ExecuteSQL (SQL) 

SQL « "Insert Into FW_C 0LUMN_AT T R I BU T E_VALU E 
( ENTITY_COLUMN_ID, COLUMN_ATTRIBUTE_ID, COLUMN_ATTRIBUTE_VALUE ) Values (" 

SQL = SQL & EntityColumnID & "," & DLookup ( "COLUMN_ATTRI BUT E_ID" , " FW_COLUMN_ATTRIBUTE" , 
"COLUMN_ATTRIBUTE= 'MAX_DATE 1 " ) & ", 1 12/31/9999 ') " 

Call ExecuteSQL (SQL) 
Case "GenericMemo" 

SQL = "Insert Into FW_COLUMN_AT T RI BU TE_VALUE 
(ENTITY_COLUMN_ID,COLUMN_ATTRIBUTE_ID,COLUMN_ATTRIBUTE_VALUE) Values (" 

SQL = SQL & EntityColumnID & "," & DLookup ( "COLUMN_ATTRIBUTE_ID" f " FW_COLUMN_ATTRIBUTE" , 
"COLUMN_ATTRIBUTE= ' LINES 1 " ) & n , % b')" 

Call ExecuteSQL ( SQL ) 
Case "GenericNumber" 

SQL = "Insert Into FW_COLUMN_ATTRIBUTE_VALUE 
(ENTITY_COLUMN_ID,COLUMN_ATTRIBUTE_ID,COLUMN_ATTRIBUTE_VALUE) Values (" 

SQL = SQL & EntityColumnID & "," & DLookup ( "COLUMN_ATTRIBUTE_ID" , " FW_COLUMN_ATTRIBUTE" , 
"COLUMN_ATTRIBUTE= ' DECIMALS '")&",' 6 ' ) " 

Call ExecuteSQL (SQL) 
Case Else 

SQL = "Insert Into FW_COLUMN_ATTRIBUTE_VALUE 
( ENTITY_COLUMN_ID, COLUMN_ATTRIBUTE_ID, COLUMN_ATTRIBUTE_VALUE ) Values ( " 

SQL = SQL & EntityColumnID & "," & DLookup ( "COLUMNJVTTRI BUT E_ID'\ " FW_COLUMN_AT TRIBUTE" , 
" COLUMN_ATT R I BUT E— ' LINES 1 ")&",» 1 ' ) " 
Call ExecuteSQL (SQL) 
End Select 
End Select 
End If 

rs. Close: Set rs = Nothing 
If CallCreateComboBox Then 

CreateComboBoxControls EntitylD, fDef.Name 
End If 
Next i 

OrderEntityColumns EntitylD 
End Sub 
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CreateComboBoxControls 

Private Sub CreateComboBoxControls (EntitylD As Long, EntityFieldName As String) 
Dim rs As ADO DB. Recordset 
Dim SQL As String 
Dim ViewColumns As Long 
Dim Recordsource As String 



SQL = "Select * From ENTITY_RELATIONSHIP_V Where RELATION_TYPE= 'MANY_TO_ONE 1 " 

SQL = SQL & "And ENTITY_ID=" & EntitylD & " And ENTITY_FIELD_NAME= ' " & EntityFieldName & "'" 

Set rs = Get RS (SQL) 

If Not (rs.BOF And rs.EOF) Then 

If DLookup ( "REFERENCE" , "FW_ENTITY", " ENTITY_ID=" & rs ( "RELATED_ENTITY_ID" ). Value ) Then 
Recordsource = Bui IdRecordsource ( rs ( " RELATE D_ENTITY_ID" ) .Value, ViewColumns) 

CreateComboBoxControl rs ( "ENTITY_ID" ) .Value, rs ( "ENT IT Y_FIELD_NAME" ) .Value, Recordsource, ViewColumns, 
rs ( "RE LAT E D_EN T I T Y_ ID" ) .Value 
Else 

CreateSmartComboControl rs ( "ENTITY_ID" ) .Value, rs ( "ENTITY_FIELD_NAME" ) .Value, 
rs ("RELATED_ENTITY_ID" ) .Value 
End If 
End If 

rs. Close: Set rs = Nothing 
End Sub 



> 
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BuildRecordsource 



Private Function BuildRecordsource (EntitylD As Long, ViewColumns As Long) As String 
Dim SQL As String 
Dim ViewName As String 
Dim rs As ADODB. Recordset 
Dim DatasourcelD As Long 
Dim TableViewPrefix As String 

ViewName = DLookup ( "RECORD_SOURCE", "FW_ENTITY", "ENTITY_ID=" & EntitylD) 
DatasourcelD = DLookup ( " DATASOURCE_ID" , " FW_ENTITY" , "ENTITY_ID=" & EntitylD) 

TableViewPrefix = DLookup ( "DATASOURCE_ATTRI BUT E_VALUE" , "DATASOURCE_ATTRIBUTE_V" , 
"DATASOURCE_ATTRIBUT£ : = ' INITIAL_CATALOG 1 AND DATASOURCE_ID=" & DatasourcelD) & "" 

Select Case DLookup ( "Platform" , "qryDatasources", "DATASOURCE_ID=" & DatasourcelD) 

Case "ORACLE. OLEDB" 

ViewName = TableViewPrefix & "." & ViewName 

Case Else 
End Select 

Set rs = GetDatasourceRS (DatasourcelD, "Select * From " & ViewName & " Where 1=2") 

If rs. Fields. Count > 1 Then 

SQL = "SELECT " & rs{0).Name & ", " & rs(l).Name & " FROM " & ViewName & " ORDER BY " & rs(l).Name 

ViewColumns = 2 
Else 

SQL = "SELECT " & rs(0).Name & " FROM " & ViewName & " ORDER BY " & rs(0).Name 
ViewColumns = 1 
End If 

rs. Close: Set rs = Nothing 
BuildRecordsource = SQL 
End Function / 
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CreateComboBoxControl 

Private Sub CreateComboBoxControl (EntitylD As Long, FieldName As String, Recordsource As String, ViewColumns As 
Long, RelatedEntitylD As Long) 

Dim rs As ADODB. Recordset 

Dim SQL As String 

Dim EntityColumnID As Long 

SQL = "Select * From FW_ENTITY_COLUMN Where ENTITY_ID=" & EntitylD & " And FIELD_NAME= 1 " 

SQL - SQL & FieldName & "'" 

Set rs = GetEditRS(SQL) 

EntityColumnID = -1 

If Not (rs.BOF And rs.EOF) Then 

rs("CONTROL_TYPE_ID") .Value = DLookup ( "CONTROL_TYPE_ID" , "FW_CONTROLJTYPE", 
"CONTROL_TYPE= ■ ComboBoxControl 1 " ) 

If UCase$(Right$(rs("CONTROL_CAPTI0N"). Value, 3}) = " ID" Then 

rs ( "CONTROL_CAPTION" ) .Value = Left$ ( rs ( "CONTROL_CAPTION" ) .Value, Len ( rs ( "CONTROL_CAPTION" ). Value ) - 3) 

End If 

EntityColumnID = rs ( "ENTITY_COLUMN_ID" ) .Value 
rs .Update 
End If 

If EntityColumnID = -1 Then Exit Sub 

SQL = "Delete From FW_COLUMN_ATT R I BUT E_VALUE Where ENT I T Y_COLUMN_I D= " & EntityColumnID 

SQL = "Insert Into FW_COLUMN_ATT R I BU T E_VALUE (ENTITY_COLUMN_ID, COLUMN_ATTRIBUTE_ID,COLUMN_ATTRIBUTE_VALUE) 
Values (" 

SQL = SQL & EntityColumnID & "," & DLookup ( "COLUMN_ATTRIBUTE_ID" , " FW_COLUMN_ATTRIBUTE " , 
"COLUMN JvrTRIBUTE= l RECORD_SOURCE'") & & Recordsource & " 1 ) " 

Call ExecuteSQL (SQL) 

SQL = "Insert Into FW_COLUMN_ATTRIBUTE_VALUE ( ENTITY_COLUMN_ID, COLUMN_ATTRIBUTE_ID, COLUMN_ATTRIBUTE_VALUE ) 
Values (" 

SQL = SQL & EntityColumnID & "," & DLookup ( "COLUMN_ATTRIBUTE_ID" , "FW_COLUMN_ATTRIBUTE" , 
"COLUMN_ATTRIBUTE= f ALLOW_EDIT "')&", 1 0 1 ) " 
Call ExecuteSQL (SQL) 

SQL = "Insert Into FW_COLUMN_ATTRIBUTE_VALUE (ENTITY_COLUMN_ID, COLUMN_ATTRIBUTE_ID, COLUMN_ATTRIBUTE_VALUE ) 
Values (" 

SQL « SQL & EntityColumnID & "," & DLookup ( "COLUMN_ATTRIBUTE_ID" , "FW_COLUMN_ATTRIBUTE" , 
"COLUMN_ATTRIBUTE= 1 DISPLAY__COLUMN 1 " ) & & ViewColumns - 1 & " ' ) " 

Call ExecuteSQL (SQL) 

SQL = "Insert Into FW_C OLUMN_AT T R I BU T E_VALU E (ENTITY_COLUMN_ID,COLUMN_ATTRIBUTE_ID, COLUMN_ATTRIBUTE_VALUE) 
Values (" 

SQL » SQL & EntityColumnID & "," & DLookup ( "COLUMN_ATTRIBUTE_ID" , "FW_COLUMN_ATTRIBUTE", 
"COLUMN_ATTRIBUTE= 1 REFERENCE_ENTITY_ID ' " ) & ",'" & RelatedEntitylD & "')" 
Call ExecuteSQL (SQL) 

End Sub 
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CreateSmartComboControl 

Private Sub CreateSmartComboControl (EntitylD As Long, FieldName As String, RelatedEntitylD As Long) 
Dim rs As ADODB. Recordset 
Dim SQL As String 
Dim EntityColumnID As Long 

SQL = "Select * From FW_ENTITY_COLUMN Where ENTITY_ID=" & EntitylD & " And FIELD_NAME= ' " 

SQL = SQL & FieldName & "'" 

Set rs « GetEditRS(SQL) 

EntityColumnID = -1 

If Not (rs.BOF And rs.EOF) Then 

rs("CONTROL_TYPE_ID") .Value = DLookup ( "CONTROL_TYPE_ID" , " FW_CONTROL_TYPE" , 
"CONTROL_TYPE= • SmartComboControl » " ) 

EntityColumnID = rs ( "ENT IT Y_COLUMN_ID" ). Value 

rs .Update 
End If 

If EntityColumnID = -1 Then Exit Sub 

SQL = "Delete From FW_COLUMN_ATTRIBUTE_VALUE Where ENT IT Y_COLUMN_I D= " & EntityColumnID 

SQL = "Insert Into FW_COLUMN_ATTRIBUTE_VALUE (ENTITY_COLUMN_ID, COLUMN_ATTRIBUTE_ID, COLUMN_ATTRIBUTE_VALUE ) 
Values (" 

SQL = SQL & EntityColumnID & "," & DLookup ( "COLUMN_ATTRIBUTE_ID" , "FW_COLUMN_ATTRIBUTE" , 
"COLUMN_ATTRIBUTE= 1 REFERENCE_ENTITY_ID f " ) & & RelatedEntitylD & " 1 ) " 

Call ExecuteSQL ( SQL ) 
End Sub 
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OrderEntityColumns 

Private Sub OrderEntityColumns (EntitylD As Long) 
Dim rs As ADODB. Recordset 
Dim SQL As String 
Dim Tablndex As Long 
Dim Defaultlcon As String 

SQL = "Select TABJENDEX From FW_ENTITY_COLUMN Where Not TAB_INDEX Is Null And ENTITY_ID=" & EntitylD 

SQL = SQL & " Order By TAB_INDEX Desc" 

Tablndex = 1 

Set rs = GetRS (SQL) 

If Not (rs.BOF And rs.EOF) Then 

Tablndex = rs ( "TAB_INDEX" ) .Value + 1 
End If 

rs. Close: Set rs = Nothing 

SQL = "Select * From FW_ENTITY_COLUMN Where TAB_INDEX Is Null And ENTITY_ID=" & EntitylD 
SQL = SQL & " Order By FIELD_NAME Asc" 
Set rs = GetEditRS(SQL) 
Do While Not rs.EOF 

rs("TAB_INDEX") .Value = Tablndex 

rs. Update 

Tablndex = Tablndex + 1 
rs.MoveNext 
Loop 

rs. Close: Set rs = Nothing 
End Sub 
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OrderRelationships 



Public Sub OrderRelationships (EntitylD As Long) 
Dim rs As ADODB. Recordset 
Dim SQL As String 
Dim RelativeOrder As Long 

If DLookup ( "REFERENCE" , "FW_ENTITY", "ENTITY_ID=" & EntitylD) Then Exit Sub 

SQL = "Select RELATIVE_ORDER From ENTITY_RELATIONSHIP_V Where Not REFERENCE And Not RELATIVE_ORDER Is Null " 
• SQL = SQL & "And ENTITY_ID=" & EntitylD & " Order By RELATIVE_ORDER Desc" 
RelativeOrder = 1 
Set rs = GetRS ( SQL) 
If Not rs.BOF And rs.EOF Then 

RelativeOrder = rs ( "RELATIVE_ORDER" ) .Value + 1 
End If 

rs. Close: Set rs = Nothing 

SQL = "Select * From FW_ENT I T Y_RE LAT I ON Where RELATIVEJDRDER Is Null And ENTITY_ID=" & EntitylD 
Set rs - GetEditRS(SQL) 
Do While Not rs.EOF 

If Not DLookup ("REFERENCE", "FW_ENTITY" , "ENTITY_ID=" & rs ( "RELATED_ENTITY_ID" ) .Value ) Then 
rs("RELATIVE_ORDER") .Value = RelativeOrder 
rs. Update 

RelativeOrder = RelativeOrder + 1 
End If 
rs .MoveNext 
Loop 

rs. Close: Set rs = Nothing 
End Sub 
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LoadSeguences 

Private Sub LoadSequences ( ) 
Dim rs As ADODB. Recordset 
Dim NextVal As Long 

Set rs = GetRS( "Select * From FW_ENTITY") 
Do While Not rs.EOF 

NextVal = GetNextSequenceVal ( rs ( " DATASOURCE_I D" ) .Value, rs ( "TABLE_NAME" ) .Value, 
rs ( ,, UNIQUE_FIELD_NAJME" ) .Value) 

InsertSequence rs ( "DATASOURCE_ID" ) .Value, rs ( ,, TABLE_NAME M ) .Value, NextVal 
rs .MoveNext 
Loop 

rs. Close: Set rs = Nothing 
End Sub 
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InsertSequence 

Private Sub InsertSequence ( DatasourcelD As Long, TableName As String, NextVal As Long) 
Dim rs As ADODB. Recordset 
Dim com As ADODB. Command 
Dim TableViewPref ix As String 

Set com = New ADODB. Command 

Set com.ActiveConnection = GetDatasourceConnection ( DatasourcelD) 
If com.ActiveConnection Is Nothing Then 

Set com = Nothing 

Exit Sub 
End If 

TableViewPrefix = DLookup ( "DATASOURCE_ATTRIBUTE_VALUE" , "DATASOURCE_ATTRIBUTE_V", 
"DATASOURCE_ATTRIBUTE= ' INITIAL__CATALOG 1 AND DATASOURCE_ID=" & DatasourcelD) & "" 

On Error Resume Next 

com. Comma ndType = adCmdText 

Select Case DLookup ( "Platform", "qryDatasources", "DATASOURCE_ID=" & DatasourcelD) 
Case "ACCESS . OLEDB" , " SQLSERVER. OLEDB" 

com.CommandText - "Select * From SEQUENCE Where TABLE_NAME= 1 " & TableName & "'" 
Case "ORACLE. OLEDB" 

com.CommandText = "Select * From " & TableViewPrefix & " . SEQUENCE Where TABLE_NAME= f " & TableName & " 1 " 
' End Select 

com. CommandTimeout = 300 

Set rs = New ADODB. Recordset 
rs.CursorType = adOpenStatic 
rs . CursorLocation = adUseClient 
rs.LockType = adLockOptimistic 
rs.Open com 
If Err. Number = 0 Then 

If rs.BOF And rs.EOF Then 
rs . AddNew 

End If 

rs("TABLE_NAME") .Value = TableName 

rs("NEXT_VAL") .Value = NextVal 

rs .Update 
End If 
Err .Clear 
Set com = Nothing 
rs. Close: Set rs = Nothing 
End Sub 
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Ref reshContexts 

Private Sub Ref reshContexts ( ) 
Dim rs As ADODB. Recordset 

Set rs = GetRS ("Select ENTITY_ID From FW_ENTITY") 
Do While Not rs.EOF 

DefineContexts rs ( "ENTITY_ID" ) .Value 

rs .MoveNext 
Loop 

rs. Close: Set rs = Nothing 
End Sub 
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Def ineContexts 

Private Sub Def ineContexts ( EntitylD As Long) 
Dim SQL As String 
Dim rs As ADODB. Recordset 

If IsNull(DLookup("ENTITY_CONTEXT_ID", " FW_ENTITY_CONTEXT" , "ENTITY__ID=" & EntitylD)) Then 
SQL = "Select * From FW_E NT I T Y_R E LAT I ON Where ENTITY_ID=" & EntitylD 
Set rs = GetRS (SQL) 
Do While Not rs.EOF 

Select Case rs ( "RELATIONJTYPE" ) .Value 
Case " ON E_TO__MAN Y " , "MANY_TO_MANY" 

DefineContext rs ( "ENTITY_ID" ) .Value, rs ( "RELATED_ENTITY_ID" ) .Value, False 
Case "MANYjrO_ONE" 

DefineContext rs ( "ENTITY_ID" ) .Value, rs ("RE LATE D_ENT IT Y_ID" ) .Value, True 
End Select 
rs .MoveNext 
Loop 

rs. Close: Set rs = Nothing 
End If 
End Sub 
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Def ineContext 



Private Sub Def ineContext (EntitylD As Long, RelatedEntitylD As Long, Reverse Join As Boolean) 
Dim SQL As String 
Dim rs As ADODB . Recordset 
Dim rsEdit As ADODB. Recordset 

If ReverseJoin Then 

SQL = "Select TableJoin From qryTableJoins Where ENTITY_ID=" & RelatedEntitylD 
SQL = SQL & " And RELATE D_ENT I T Y_I D= " & EntitylD 
Else 

SQL = "Select TableJoin From qryTableJoins Where ENTITY_ID=" & EntitylD 
SQL = SQL & " And RELATED_ENTITY_ID=" & RelatedEntitylD 
End If 

Set rs = GetRS (SQL) 

SQL = "Select * From FW_ENT I TY_CONTEXT Where ENTITY_ID=" & EntitylD 
Set rsEdit - GetEditRS (SQL) 
Do While Not rs.EOF 
rsEdit .AddNew 

rsEdit ( "ENTITY_ID" ) .Value = EntitylD 
rsEdit ( "TABLE_JOIN" ) .Value = rs ( "Table Join" ) .Value 
rsEdit. Update 
rs.MoveNext 
Loop 

rs. Close: Set rs = Nothing 
rsEdit .Close: Set rsEdit = Nothing 
End Sub 



